home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMDR1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  482b  |  27 lines

  1. program DemoDirectoryOne;
  2. {demdr1 - the default directory list}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totLIST;
  6.  
  7. Var
  8.    ListWin:  ListDirObj;
  9.  
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with ListWin do
  13.    begin
  14.       Init;
  15.       ReadFiles('*.*',AnyFile);
  16.       Go;
  17.       Win^.Remove;
  18.       if (LastKey = 27) or (Lastkey = 600) then
  19.          writeln('You escaped!')
  20.       else
  21.          writeln('You chose file '+GetHiString);
  22.       Done;
  23.    end;
  24. end.
  25.  
  26.  
  27.